home *** CD-ROM | disk | FTP | other *** search
/ Hottest 6 / Hottest 6 (1996)(PDSoft)[!].iso / software / videoutils / a-g / ami2d / rexx / init.rexx < prev    next >
OS/2 REXX Batch file  |  1978-11-24  |  1KB  |  45 lines
  1. /* Ami2d init script */
  2.  
  3. address ami2d
  4.  
  5. 'set struct 0'
  6. 'set stress 1'
  7. 'set strain 2'
  8. 'set thermal 1'
  9.  
  10. 'set la=a2*a3/((1+a3)*(1-plane*a3))'
  11. 'set mu=a2/(2*(1+a3))'
  12. 'set et=a5*a2/(1-plane*a3)'
  13. 'alias iso=mat(a1,0,0,la+2*mu,la+2*mu,la+2*mu,mu,la,la,0.0,la,0.0,0.0,a4,et,et,a6)'
  14. 'alias therm=mat(a1,0,1,a2,0.0,0.0,a2,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,a3)'
  15. 'alias tri3=elem(a1,a2,3,1,a3,a4,a5)'
  16. 'alias tri6=elem(a1,a2,6,3,a3,a4,a5,a6,a7,a8)'
  17. 'alias quad4=elem(a1,a2,4,4,a3,a4,a5,a6)'
  18. 'alias quad8=elem(a1,a2,8,4,a3,a4,a5,a6,a7,a8,a9,a10)'
  19. 'alias quad9=elem(a1,a2,9,9,a3,a4,a5,a6,a7,a8,a9,a10,a11)'
  20. 'alias dispx=pbc(a1,1,0,1,a2)'
  21. 'alias dispy=pbc(a1,1,0,2,a2)'
  22. 'alias forcx=pbc(a1,2,0,1,a2)'
  23. 'alias forcy=pbc(a1,2,0,2,a2)'
  24. 'alias dispr=pbc(a1,1,0,1,a2)'
  25. 'alias dispz=pbc(a1,1,0,2,a2)'
  26. 'alias forcr=pbc(a1,2,0,1,a2)'
  27. 'alias forcz=pbc(a1,2,0,2,a2)'
  28. 'alias slope=dbc(a1,1,0,1,a2,a3)'
  29. 'alias press=dbc(a1,2,0,1,a2,a3)'
  30. 'alias tract=dbc(a1,2,0,2,a2,a3)'
  31. 'alias temp=pbc(a1,1,1,1,a2)'
  32.  
  33. 'set scale 1'
  34. 'set material 1'
  35. 'set disp 0'
  36. 'set force 0'
  37. 'set press 0'
  38. 'set tract 0'
  39.  
  40. 'set temp=u1'
  41.  
  42. call 'ami2d:rexx/pstrain'
  43.  
  44. exit
  45.